
   date = (/ 20080115, \
             20080215, \
             20080315, \
             20080415, \
             20080515, \
             20080615, \
             20080715, \
             20080815, \
             20080915, \
             20081015, \
             20081115, \
             20081215 /)

   if(yy.eq."2000") then
      date = date - 80000
   end if

   if(yy.eq."2001") then
      date = date - 70000
   end if

   if(yy.eq."2002") then
      date = date - 60000
   end if

   if(yy.eq."2003") then
      date = date - 50000
   end if

   if(yy.eq."2004") then
      date = date - 40000
   end if

   if(yy.eq."2005") then
      date = date - 30000
   end if

   if(yy.eq."2006") then
      date = date - 20000
   end if

   if(yy.eq."2007") then
      date = date - 10000
   end if

   if(yy.eq."2009") then
      date = date + 10000
   end if

   if(yy.eq."2010") then
      date = date + 20000
   end if

   if(yy.eq."2011") then
      date = date + 30000
   end if



